home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / COLRGRAF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-21  |  128 b   |  4 lines
  1. 8  CLS
  2. 10  WIDTH 80:DEF SEG=0:A=PEEK(&H410):POKE &H410,(A AND &HCF)OR &H20:WIDTH 40:SCREEN 1:SCREEN 0:LOCATE ,,1,6,7:COLOR 15,9,4:CLS:KEY OFF
  3. 20  CHAIN "easygraf"
  4.